home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00489.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  1.6 KB  |  73 lines

  1. on enterFrame
  2.   global girly
  3.   namechange()
  4.   preLoadCast(264)
  5.   preLoadCast(254)
  6.   preLoadCast(258)
  7.   preLoadCast(119)
  8.   preLoadCast(113)
  9.   preLoadCast(117)
  10.   set girly to 0
  11.   puppetSprite(1, 0)
  12.   puppetSprite(2, 0)
  13.   puppetSprite(3, 0)
  14.   puppetSprite(4, 0)
  15.   puppetSprite(5, 0)
  16.   repeat with x = 1 to 6
  17.     if rollOver(x) then
  18.       set the cursor of sprite x to -1
  19.     end if
  20.   end repeat
  21. end
  22.  
  23. on exitFrame
  24.   global gbRollW1, gbRollW2, gbRollW3, gbRollW4
  25.   updateStage()
  26.   repeat with x = 20 to 27
  27.     if rollOver(x) then
  28.       set the cursor of sprite x to [561, 562]
  29.     end if
  30.   end repeat
  31.   if rollOver(14) and (gbRollW1 <> 1) then
  32.     set the visible of sprite 25 to 1
  33.     set gbRollW1 to 1
  34.   else
  35.     if not rollOver(14) and (gbRollW1 <> 0) then
  36.       set the visible of sprite 25 to 0
  37.       set gbRollW1 to 0
  38.     end if
  39.   end if
  40.   if rollOver(16) and (gbRollW2 <> 1) then
  41.     set the visible of sprite 26 to 1
  42.     set gbRollW2 to 1
  43.   else
  44.     if not rollOver(16) and (gbRollW2 <> 0) then
  45.       set the visible of sprite 26 to 0
  46.       set gbRollW2 to 0
  47.     end if
  48.   end if
  49.   if rollOver(17) and (gbRollW3 <> 1) then
  50.     set the visible of sprite 27 to 1
  51.     set gbRollW3 to 1
  52.   else
  53.     if not rollOver(17) and (gbRollW3 <> 0) then
  54.       set the visible of sprite 27 to 0
  55.       set gbRollW3 to 0
  56.     end if
  57.   end if
  58.   if rollOver(15) and (gbRollW4 <> 1) then
  59.     repeat with i = 20 to 22
  60.       set the visible of sprite i to 1
  61.     end repeat
  62.     set gbRollW4 to 1
  63.   else
  64.     if not rollOver(15) and (gbRollW4 <> 0) then
  65.       repeat with i = 20 to 22
  66.         set the visible of sprite i to 0
  67.       end repeat
  68.       set gbRollW4 to 0
  69.     end if
  70.   end if
  71.   go(the frame)
  72. end
  73.